Denumire Categori Stoc Stoc de Preţ unitar 
e Curent Siguranţă 
Pr 1 1 10 15 1000 
Produs2 1 8 5 2000 
Produs3 1 10 15 1500 
Produs4 2 15 10 2000 
Produs5 2 20 10 10000 
Produs6 3 10 20 15000 
Produs” 3 5 10 10000 
Produse(7,5) 


1. Să se afiseze cantitatea si valoarea ce trebuie aprovizionată 
pentru produsele al caror stoc curent < stocul de siguranta 


CantitDeAproviz=StocDeSiguranta-StocCurent 
Valoare = CantitDeAproviz * Pret unitar 


2. Pentru fiecare categorie sa se afiseze valoarea totala a 
produselor de aprovizionat 


Rezolvare 


Sub_testl(Matrice) 

Sum = 0 
ValoareTotala = 0 
categ = Matrice(1, 2) 


For i = 1 To 4 
If Matrice(i, 2) <> categ Then 
Debug.Print (categ & "-->" & Sum) 
Sum = 0 
categ = Matrice(i, 2) 
End If 
If Matrice(i, 3) < Matrice(i, 4) Then 


Debug.Print (Matrice(i, 1) & "-->" 6 Matrice(i, 4) - Matrice(i, 3) & "--»" & 
(Matrice(i, 5)) * (Matrice(i, 4) - Matrice(i, 3))) 
Sum = Sum + (Matrice(i, 5)) * (Matrice(i, 4) - Matrice(i, 3)) 
ValoareTotala = ValoareTotala + Matrice(i, 5) * (Matrice(i, 4) - Matrice(i, 3)) 
End If 
Next 
Debug.Print (categ & "--»" & Sum) 
Debug.Print ("valoare totala: " & ValoareTotala) 
End Sub 


